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£888 008) 6 1 BOOT_UV1_SWITCH = 1 ; Build Micro-VAX I bootstrap emulator 
ss 
f -title aves Input and Output 
0 § eident /V1.0-02/ 
3 ¢ S Oeenncecqnennnnerereenseusenecenqnoeneneeseeeennqensenonsenooeeedonerenoeete 
3* 
0900 5 3* ag +f ht (c) 1984 * 
g888 * by DIGITAL Equipment Corporation, Maynard, Mass. ’ 
44 10 :* This software is furnished under a License and may be used and copied * 
0 11 3% only in accordance with the terms of such License and with the * 
0000 \¢ i* inclusion of the above copyright notice. This software or any other * 
0000 15 ;* copies thereof may not be provided or otherwise made available to any * 
0000 14 ;* other person. No title to and ownership of the software is hereby * 
8888 —* transferred. : 
0000 17 :* The information in this software is subject to change without notice * 
0000 18 ;* anc should not be construed as a commitment by DIGITAL Equipment * 
8000 3 ‘ Corporation. : 
0000 $f :* DIGITAL assumes no responsibility for the use or reliability of its * 
88 $$ > software on equipment which is not supplied by DIGITAL. , 
0000 4 PITITISITIIIIT ITIL iii titi iitiiitiiti titi iitiiitiii ttt ttt, 
0000 5; 
0000 6 
0000 Sk 
88 Facility: MicroVAX I system bootstrap 
9000 51 : Abstract: 
0000 a : This set of subroutines provides access to the QVSS keyboard and video 
4464 <0 3 screen. 
8888 38 : Environment: 
0000 3 : These routines assume that the QVSS has been set up properly by the 
88 i 3 MicroVax I microcode. 
0000 41 ; Author: 
$000 8 Len Kawell, D. N. Cutler 28-Dec-83 
0000 44 ; 
9444 4 3 Modified by: 
0000 47: V1.0-02 Len Kawell 18-Jun-1984 
g888 8 Change 19 inch video screen crt parameters for VR100. 
0009 29 : V1.0-01 D. N. Cutler 13-Mar-84 
0000 26 : Add 15/19 inch video screen crt parameters. 
000 = 
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Qvs Pa Qv! 
V1 8-02 Equated Symbo ~JUN-1984 14: GAMACHE  OVTROM-VMBIQVSS MART o 3) vi 


p 5 -sbttl Equated Symbols 
; QVSS register definitions 
O001E8 60 qvss = *x20000000+*017200 :QVSS 1/0 register base address 
03C000 0 61 Screen = — screen nonety starts at i 1/4 MB 
$ FF 80 3 8 scan_map = screen + <254*1024> scan map starts at 254KB in memory 
FF7E 65 column = scan_map-*x2 scursor column position 
OOSFF7E 8 8 row = scan_map-“xile cursor row position 
1E 66 qvss$gw_csr == qvss zscontrol/Status register 
SOOT 3 $00 83 avss$ou-cxpos 22 quest? cursor x position register 
0001E84 4 98 Qvss$gw_mouse == qvss+4 ymouse x and y register 
OOO1E $ 00 8 Qvss$gw_spare == avee™s ;spare 
QOO1E B88 9 qvss$gw_caddr == qvss+ iertc address register 1/0 location 
OOO1E 000 71 qvss$gw_cdata == pa sertc data register location 
OOO1E8C 88 3 qvss$gw_idata == qvss+1 sinterrupt controller data register 
OOO1E8E 88 t qvss$gw_icmd == qvss+14 ; interrupt controller command register 
344d See 0000 75 qvss$gw_umodea == qvss+32 suart mode register for channel A 
20001EA2 0000 ug qvss$gw_ustata == qvss+34 jsuart status register for channel A 
20001EA4 0000 77 qvss$gw_ucmda == qvss+36 suart command register for channel A 
20001EA6 86 4 qvss$gw_ubufa == qvss+38 suart xmit/rcve buffer for channel A 
0000 80 ; 
0000 81 ; CSR bit definitions 
0000 5 ; 
0000 8 
00000001 88 84 qvss$m_mode == 1 : 1* or 15° mode bit 
00000004 0000 85 qvss$m_viden == 4 svideo enable bit in csr 
sits 4 0000 86 qvss$m_curfun == “o10 scursor video function (1 = OR, 0 = AND) 
—88 0000 87 qvss$m_vrdbk == “o20 enable video readback 
00000020 0000 88 qvss$m_tstbit == “040 ztest bit for mouse loopback testing 
00000080 8 89 qvss$m_curon == “0200 icursor active 
00000100 00 90 qvss$m_msa == *0400 mouse switch A 
00000200 0000 91 qvss$m_msb == “01000 mouse switch B 
00000400 88 3 qvss$m_msc == *02000 zmouse switch C 
000 9 
0000 94 ; 
0000 95 ; Keyboard UART values 
000097 
000001 p 98 qvss$m_arl == “023 ino parity, eight bits 
$8 0000 6 35 qvsssacer2 ss 7 Seorbal chen 444 one stop bit 
00000099 ; 199 qvss$m_csra =e Rs th 34800 baud tx, rx rate 
00000015 8 1 qvss$m_cr == “025 ireset reg pointer, and enable tx,rx 
00000004 $00 198 aqvss$m_txrdy == 4 jtransmitter peody bit 
00000001 0000 104 qvss$m_rxrdy == 1 receiver ready bit 
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Input and Output 


Local Data 
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Local Data 
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ss 
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Input and Output 


Local Data 
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- = font + *x600 
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Input and Output 


Local Data 
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: 15 inch screen video crt parameters 


» = font + *xc00 


screen_15_inch: 


our —OW—0 wl 
sec © —— @ 6 
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: 19 inch screen video crt parameters 


- = font + *xc20 


screen_19_inch: 
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(VR210) 


thorizonal total 
shorizonal displayed 


zshorizonal sync position 
shor®zonal/versicte sync widths 


iverticle total 
sverticle total adjust 
iverticle displayed 


iverticle sync position 


smode 

smaximum scanline 
zcursor start 
scursor end 
sstart h 

sstart | 

;cursor h 

scursor | 


(VR100) 


thorizonal total 
shorizonal displayed 


shorizonal sync position 
shorizonal/verticle sync widths 


sverticle total — 
sverticle total adjust 
iverticle displayed 


sverticle sync position 


smode y 
smaximum scanline 
zcursor start 
scursor end 
sstart h 

start | 

scursor h 

zscursor | 
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Ss 


Input —_ ⸗ 


Inp 
1¢ 
1¢ 
1¢ 
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1C 
1C 
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qvss$input:: 
pushl 


10$: 


20S: 


30$: 
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r0 - Input character. 
; Registers ri-sp are preserved. 


control_key,rl 
10$ 
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; This routine is called to read the next character from the QVSS keyboard. 


isave register ri 
et address of translation table 


| ed ri 
fqvss$m _txrdy, a4qvss$gw_ ‘atate ireceiver ready? 


“;if eql not ready 

;get character scan code 
sshift key? 

zif eql yes 

contrat’ a 


es 
set dress of translation table 


sget character from translation table 
restore register rl 


;set address of translation table 


3% 


C 15 
avs Input and Output 10-AUG-1984 18:05: AX/VMS Macre V04-0 Pa 
V1 38-02 aves Output , — oa ES 18:03:38 CAMACHE UV 1ROM-VMOSQVSS.MARLTo” , 
1589 ] 8 Aabtth QvSS Output 
S23 1 12 ; This routine is called to output a character to the QvSSs. 
1069 1315 ; Inputs: 
1069 1314; 
1069 1315 ; r0 = Character to output. 
162 1 16 3 
1069 1317 ; Outputs: 
1069 1318 ; 
48 4? 5 The character is written to the QVSS video screen. 
1069 1321 ; Registers r0-sp are preserved. 
1€69 1 $ : 
162 1 
TE 51D EGR 1855 —— : ister rl and 2 
mov ri,-(s zsave register rl andr 
”" Rm ww € IU8 1326 sub L3 #33, r00r1 scanerel character? 
- i 1327 blss 10$ :if lss yes 
OO3SFF7EO 9F 0080 8F Bi 1C72 1328 cmpw #128,a#column beyond right margin? 
5F 13 1C7B 1329 beql 5$ sif eql yes 
3] OA C4& 1C7D 1330 mull #10,r1 scompute offset to character bitmap 
51 F37B CF41 X 1€80 1331 movab = font[r1],r1 sget address of character bitmap 
52 OO3FF7E2 9F 3C 1086 1 3 movzwl a@#row,r2 get current row 
52 00000500 8F ge 1C8D 133 mull #128*10,r2 scompute offset to character in row 
7E OO3FF7E0 9F C 1094 1334 movzwl a#column,-(sp) get current column 
52 43 CO 1€9B 1335 addl (sp)+,r2 ;compute starting screen address 
52 003C0000 9F4 9E 1C9E 1336 movab orecreant re] .0¢ zget address in screen buffer 
6 81 90 1A6 1337 movb (r1)+,0*12 He} stransfer bitmap to screen buffer 
0080 C 81 3 1CA9 1338 movb (r1)+,1#128(r2) : 
0100 C 81 8 1339 movb — airs? : 
0180 C 81 90 1CB3 1340 movb (r1)+,5*128(r2) : 
0200 C 81 90 1CB8 1341 movb (r1)+,42128(r2) 3 
0280 C 81 90 1CBD 1 rt: movb (r1)+,5*128(r2) : 
0300 C 81 90 ists 134 movb (r1)+,6*128(r2) : 
0380 C€ 81 90 1CC7? 1344 movb (r1)+,72128(r2) : 
0400 ¢ 81 90 1CCC 1345 movb —32606 
0480 C 81 90 1CD1 1346 movb (r1)+,9%128(r2) : 
OOSFF7EO 9F B86 1CD6 1347 incw a#fcolumn sincrement column 
6B 11 #1CDC 1 4 5$: brb 80$ 3 
1CDE 134 
1CDE 1350; 
1CDE 1351 ; Control character output 
\Epe 1 2 5 
1CDE 135 
50 OA 91 1e06 1354 10$: cmpb #*xa,r0 ;linefeed? 
32. 13 «#1CE1 1355 beql 40$ zif eql yes 
50 0 91 1CE3 1 2$ cmpb #*x8,r0 sbackspace? 
1 13 6 135 beql 20$ sif eg yes 
50 0 91 1CE8 1 28 cmob #*x7,r0 bell? 
1D 13 #1CEB 135 beql 30$ zif egl yes 
50 OD 91 ICED 1360 cmpb #*xd,r0 carriage return? 
57 12 CFO 1361 bneq 80$ zif neq no 
1CF2 1 $6 
1CFo 1363 ; : 
1CF2 1364 ; Carriage return 
1CF2 1365 ; 


QvSs 
v1.0-02 


OOSFF7EO 9F 
4F 


OO3FF7E0 44 
OOSFF7EO 9F 
3F 


20001EA6 9F 00A7 er 


OOSFF7E2 9F 17 
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OO3SFF7E2 9F 
23 

51 _003C0000 9F 
52 0500 C1 
7E 1CCO 8F 
81 82 

FA 6E 

6E 0140 8F 
81 

FB 6E 

8E 

51 BE 
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neve a Output 


: Backspace 


20$: tstw 
beql 
decw 
brb 

> Bell 

30$: movw 
brb 


: Linefeed 

40$: cmpw 
beql 
incw 
brb 


2 o 
Oo Oo 
Pad wr 
o 3 
~- °o 
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SOODOODOOCOO0O0 00000 OOO 090900 0900090909 0909 SI NINN NSN NOOO 
NOUS WN OS OO — 0 OO NAME WWI O OONAUN EWI OO OONO 
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team 

80 

a¥column 

80$ 

afcolumn 

80$ 


#*xa7,a#qvss$gw_ubufa 
80$ 


$33 afrow 


J 
808 


a#screen,ri 

128510 O(ri) r2 
(r3)¢ cee 

f ( 


43 83. (sp) 
(ri)+ 
44 tag 


(sp)+,r1 
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;clear column number 


—93 at left margin? 
l yes 
iback up one column 


ring bell 


sbootom of screen? 
zif eql yes 
sincrement current row 


sget address of screen buffer 
sget address of second Line 
set loop count 

zmove Longword 

zany more lLongwords to move? 
zset loop count 

clear senguers 

any more operas to clear? 
sclean stack 

:restore registers ri and r2 


Qvss 
Symbol table 


BOOT _UV1_SWITCH= 
COLUAN ~ = 


CONTROL_KEY 
FONT 

KEY 

PQ 


Qvss 
QVSS$GW_CADDR 
QVSS$GM~CDATA 


QvSS$GW "MOUSE 
QVSS$GW~SPARE 
QVSS$GW~UBUF A 
QVSS$GWUCMDA 
S$GW"UMODEA 
QVSS$GW-USTATA 
NPUT 


. ABS _ 
" .QVSS_CONSOLE 


2200 


— 
MONO FAA LSOMVOYr WOO—-CO0OO0O— 


000 


00000 
00000008 
00000080 
00000001 
00000013 
00000007 
00000100 
00000200 
0000 


DD 
DADAQAAAAAAAAAAAIAAAAAAAAAAAAGAG Ga76ca 


Input and Output 10-AUG=19 
4 — 1 meat ht 
a 
1 
1 
01 
01 
01 
01 
01 
oe + 
: Psect synopsis ! 
Allocation PSECT No. Attributes 
00000000 ( 0.) OO ¢ QO.) NOPIC USR- CON 
00001D4D (¢ 7501.) 01 ¢ 1.) \NOPIC USR- CON 


4 18 
4 14 
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ABS 


LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
REL LCL R EXE 


NOSH RD WRT NOVEC PAGE 
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Qvss 
VAX=14 macro Run Statistics 18=-JUN-1984 4: GAMACHE UVTROM. VMBIQVSS.MARG] 


ee oer em eer new ener een aa} 


Phase Page faults CPU Time Elapsed Time 
Initialization 11 080038 .0 00:00: 0.25 
Command processing 67 00:00: 8 0:00:01.21 
Pass 1 88 0: 8: . 8:98 5.91 
—** table sort 0 0:00: 9 0:00: 9-92 
211 8: 3: . 3 8:88: 19 
Symbol table output 4 :00:00.0 :00:00.05 
Psect synopsis output 1 00:00:00.01 00:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 382 00:00:08.20 00:00:10.68 


The working set Limit was 900 popes. 

19578 bytes (39 pages) of virtual memory were used to buffer the intermediate ge 

ieere were 10 pages of symbol table space allocated to hold 42 non-local and 12 local symbols. 
1409 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


4 


— see wee wee Sem ow + 


Macro Library name Macros defined 
fintiperss te at i UV1ROM.VMSJLIBUV1.M 0 
DISKSSTARWORKOS: CHE .UV1ROM. OBJJVMB.MLB; 0 
SYSS$SYSROOT: ESYSLIBISTARLET. MLB;2 0 
TOTALS (all Libraries) 0 


0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 
MAC/LIS=LIS$:QVSS/OBJ=OBJ$:QVSS VMS$:BOOUV1SWT+VMB$:QVSS+0BJ$:VMB/LIB+VMS$:LIBUV1/LIB 
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